home *** CD-ROM | disk | FTP | other *** search
/ Georgia Wildfire Prevention / Georgia Wildfire Prevention.iso / mac / media / dirs / BackUp / Credits.dir / 00024_Script_movie(test recorder) < prev   
Text File  |  2002-10-11  |  940b  |  28 lines
  1. on startmovie
  2. --  global dirtyscore,zeus
  3. --  if ilk(dirtyscore)<> #proplist then dirtyscore=[#pre:"N/A",#post:"N/A"]
  4. --  user=zeus.userinfo.first&&zeus.userinfo.last
  5. --  Ts="Date:"&the date&SPACE&"Time:"&the time
  6. --  Pre="Pre-Test Answers (1-10):"&Space&dirtyscore.pre&numtochar(13)&numtochar(10)
  7. --  Post="Post-Test Answers (1-10):"&Space&dirtyscore.post&numtochar(13)&numtochar(10)
  8. --  joe=new(xtra "fileio")
  9. --  path=getosdirectory()
  10. --  if the machinetype=256 then
  11. --    root="C:"
  12. --    path=root&"\"
  13. --  else
  14. --    path=path&":"
  15. --  end if
  16. --  path=path&"Wildfire_test_results.txt"
  17. --  openfile(joe,path,0)
  18. --  prev=readfile(joe)
  19. --  closefile(joe)
  20. --  createfile(joe,path)
  21. --  openfile(joe,path,0)
  22. --  writestring(joe,prev&numtochar(13)&numtochar(10)&Ts&numtochar(13)&numtochar(10)&User&numtochar(13)&numtochar(10)&Pre&numtochar(13)&numtochar(10)&Post&numtochar(13)&numtochar(10))
  23. --  closefile(joe)
  24. end
  25.  
  26.  
  27.  
  28.